Imports Microsoft.VisualBasic

Namespace sk.DAL
    Public Class Comment
        Sub New(ByVal ID As Integer, ByVal userID As String, ByVal commDate As Date, ByVal text As String, ByVal approved As Boolean, ByVal articleID As Integer)
            _CommentID = ID
            _UserID = userID
            _Date = commDate
            _Text = text
            _Approved = approved
            _ArticleID = articleID
        End Sub

        Sub New()

        End Sub
        Private _CommentID As Integer
        Public Property CommentID() As Integer
            Get
                Return _CommentID
            End Get
            Set(ByVal value As Integer)
                _CommentID = value
            End Set
        End Property


        Private _UserID As String
        Public Property UserID() As String
            Get
                Return _UserID
            End Get
            Set(ByVal value As String)
                _UserID = value
            End Set
        End Property


        Private _Date As Date
        Public Property CommDate() As Date
            Get
                Return _Date
            End Get
            Set(ByVal value As Date)
                _Date = value
            End Set
        End Property


        Private _Text As String
        Public Property Text() As String
            Get
                Return _Text
            End Get
            Set(ByVal value As String)
                _Text = value
            End Set
        End Property


        Private _Approved As Boolean
        Public Property Approved() As Boolean
            Get
                Return _Approved
            End Get
            Set(ByVal value As Boolean)
                _Approved = value
            End Set
        End Property


        Private _ArticleID As Integer
        Public Property ArticleID() As Integer
            Get
                Return _ArticleID
            End Get
            Set(ByVal value As Integer)
                _ArticleID = value
            End Set
        End Property
    End Class
End Namespace

